lisp/gnus/gnus-spec.el (gnus-parse-complex-format): Use unicode escape for left doubl...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index def8ef0db14417b99d28b627e51038039bcce26b..80eaf708bc91fe9d0f36e3cb13fbe6afb8c435eb 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2013-05-20  Adam Sjøgren  <asjo@koldfront.dk>
+
+       * gnus-spec.el (gnus-parse-complex-format): Use unicode escape for left
+       double angle quotation mark.
+
 2013-05-19  Adam Sjøgren  <asjo@koldfront.dk>
 
        * message.el (message-insert-formatted-citation-line): Handle finding

diff --git a/lisp/gnus/gnus-spec.el b/lisp/gnus/gnus-spec.el
index 2606b8860af56cac794c79e09d0e2e5d523bca94..081bc876b036e1c82726b311c98ae70ab2c7c1e0 100644 (file)
--- a/lisp/gnus/gnus-spec.el
+++ b/lisp/gnus/gnus-spec.el
@@ -441,7 +441,7 @@ characters when given a pad value."
              (delim (aref (match-string 2) 0)))
          (if (or (= delim ?\()
                  (= delim ?\{)
-                 (= delim ?\«))
+                 (= delim ?\u00AB)) ; «
              (replace-match (concat "\"("
                                     (cond ((= delim ?\() "mouse")
                                           ((= delim ?\{) "face")